/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_05 / dumpprogs / mainprogrm

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 64 4a f4 20 3e 20 | 4d 61 69 6e 50 72 6f 67 |..dJ. > |MainProg|
|00000010| 52 4d 20 20 20 20 20 20 | 3a 20 41 6e 20 65 78 61 |RM      |: An exa|
|00000020| 6d 70 6c 65 20 73 63 72 | 65 65 6e 20 64 75 6d 70 |mple scr|een dump|
|00000030| 20 75 73 69 6e 67 20 72 | 65 6c 6f 63 61 74 61 62 | using r|elocatab|
|00000040| 6c 65 20 6d 6f 64 75 6c | 65 2e 0d 00 6e 26 f4 20 |le modul|e...n&. |
|00000050| 42 41 53 49 43 20 76 65 | 72 73 69 6f 6e 20 33 2e |BASIC ve|rsion 3.|
|00000060| 30 20 3a 20 35 74 68 20 | 44 65 63 20 31 39 38 37 |0 : 5th |Dec 1987|
|00000070| 0d 00 78 29 f4 20 43 6f | 70 79 72 69 67 68 74 20 |..x). Co|pyright |
|00000080| 20 20 20 20 20 20 20 20 | 3a 20 41 42 41 43 55 53 |        |: ABACUS|
|00000090| 20 54 52 41 49 4e 49 4e | 47 0d 00 82 05 3a 0d 00 | TRAININ|G....:..|
|000000a0| 8c 05 3a 0d 00 96 05 3a | 0d 00 a0 05 3a 0d 00 aa |..:....:|....:...|
|000000b0| 31 ee 20 85 3a d9 23 30 | 3a ef 34 2c 32 36 2c 31 |1. .:.#0|:.4,26,1|
|000000c0| 32 3a ff 28 22 46 58 33 | 22 29 3a f6 3a f1 20 22 |2:.("FX3|"):.:. "|
|000000d0| 20 61 74 20 6c 69 6e 65 | 20 22 3b 9e 3a fa 0d 00 | at line| ";.:...|
|000000e0| b4 05 3a 0d 00 be 07 eb | 20 31 0d 00 c8 05 3a 0d |..:.....| 1....:.|
|000000f0| 00 d2 05 3a 0d 00 dc 3c | 6d 61 72 67 69 6e 25 20 |...:...<|margin% |
|00000100| 20 20 3d 20 31 38 20 20 | 3a f4 20 54 68 65 20 6c |  = 18  |:. The l|
|00000110| 65 66 74 20 6d 61 72 67 | 69 6e 20 69 6e 20 74 65 |eft marg|in in te|
|00000120| 6e 74 68 73 20 6f 66 20 | 61 6e 20 69 6e 63 68 2e |nths of |an inch.|
|00000130| 0d 00 e6 41 74 68 72 65 | 73 68 6f 6c 64 25 3d 20 |...Athre|shold%= |
|00000140| 20 30 20 20 3a f4 20 54 | 68 65 20 6c 6f 67 69 63 | 0  :. T|he logic|
|00000150| 61 6c 20 63 6f 6c 6f 75 | 72 20 74 68 72 65 73 68 |al colou|r thresh|
|00000160| 6f 6c 64 20 66 6f 72 20 | 70 72 69 6e 74 69 6e 67 |old for |printing|
|00000170| 2e 0d 00 f0 34 70 72 69 | 6e 74 6d 6f 64 65 25 3d |....4pri|ntmode%=|
|00000180| 20 20 35 20 20 3a f4 20 | 54 68 65 20 70 72 69 6e |  5  :. |The prin|
|00000190| 74 6d 6f 64 65 20 6d 75 | 73 74 20 62 65 20 35 20 |tmode mu|st be 5 |
|000001a0| 6f 72 20 37 2e 0d 00 fa | 05 3a 0d 01 04 05 3a 0d |or 7....|.:....:.|
|000001b0| 01 0e 05 3a 0d 01 18 05 | 3a 0d 01 22 05 3a 0d 03 |...:....|:..".:..|
|000001c0| e8 44 f4 20 54 68 65 20 | 72 65 6c 6f 63 61 74 61 |.D. The |relocata|
|000001d0| 62 6c 65 20 6d 6f 64 75 | 6c 65 20 6d 75 73 74 20 |ble modu|le must |
|000001e0| 62 65 20 6c 6f 61 64 65 | 64 20 77 69 74 68 20 2a |be loade|d with *|
|000001f0| 52 4d 4c 4f 41 44 20 4d | 69 6e 69 44 75 6d 70 52 |RMLOAD M|iniDumpR|
|00000200| 4d 2e 0d 03 f2 47 ff 28 | 22 52 4d 4c 4f 41 44 20 |M....G.(|"RMLOAD |
|00000210| 24 2e 44 75 6d 70 50 72 | 6f 67 73 2e 4d 69 6e 69 |$.DumpPr|ogs.Mini|
|00000220| 44 75 6d 70 52 4d 22 29 | 20 3a f4 20 49 66 20 22 |DumpRM")| :. If "|
|00000230| 6e 6f 20 72 6f 6f 6d 22 | 2c 20 51 55 49 54 20 61 |no room"|, QUIT a|
|00000240| 6e 64 20 72 65 74 72 79 | 2e 0d 03 fc 22 f4 20 50 |nd retry|....". P|
|00000250| 72 69 6e 74 20 61 20 22 | 56 44 55 20 63 6f 64 65 |rint a "|VDU code|
|00000260| 64 22 20 70 69 63 74 75 | 72 65 2e 0d 04 06 1f 2a |d" pictu|re.....*|
|00000270| 50 52 49 4e 54 20 24 2e | 44 75 6d 70 50 72 6f 67 |PRINT $.|DumpProg|
|00000280| 73 2e 70 69 63 74 75 72 | 65 31 0d 04 10 05 3a 0d |s.pictur|e1....:.|
|00000290| 04 1a 49 f4 20 2a 4d 69 | 6e 69 44 75 6d 70 20 6c |..I. *Mi|niDump l|
|000002a0| 6f 6f 6b 73 20 6c 69 6b | 65 20 61 6e 20 65 78 74 |ooks lik|e an ext|
|000002b0| 65 6e 73 69 6f 6e 20 6f | 66 20 74 68 65 20 6f 70 |ension o|f the op|
|000002c0| 65 72 61 74 69 6e 67 20 | 73 79 73 74 65 6d 20 63 |erating |system c|
|000002d0| 6f 6d 6d 61 6e 64 73 2e | 0d 04 24 29 f4 20 49 74 |ommands.|..$). It|
|000002e0| 20 63 61 6e 20 62 65 20 | 63 61 6c 6c 65 64 20 62 | can be |called b|
|000002f0| 79 20 4f 53 43 4c 49 28 | 73 74 72 69 6e 67 24 29 |y OSCLI(|string$)|
|00000300| 2e 0d 04 2e 39 f4 20 4f | 53 43 4c 49 28 22 4d 69 |....9. O|SCLI("Mi|
|00000310| 6e 69 44 75 6d 70 22 29 | 20 57 6f 75 6c 64 20 75 |niDump")| Would u|
|00000320| 73 65 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 70 |se the d|efault p|
|00000330| 61 72 61 6d 65 74 65 72 | 73 2e 0d 04 38 41 ff 28 |arameter|s...8A.(|
|00000340| 22 4d 69 6e 69 44 75 6d | 70 20 22 2b c3 28 6d 61 |"MiniDum|p "+.(ma|
|00000350| 72 67 69 6e 25 29 2b 22 | 20 22 2b c3 28 74 68 72 |rgin%)+"| "+.(thr|
|00000360| 65 73 68 6f 6c 64 25 29 | 2b 22 20 22 2b c3 28 70 |eshold%)|+" "+.(p|
|00000370| 72 69 6e 74 6d 6f 64 65 | 25 29 29 0d 04 42 3d f4 |rintmode|%))..B=.|
|00000380| 20 54 68 65 20 70 61 72 | 61 6d 65 74 65 72 73 20 | The par|ameters |
|00000390| 61 72 65 20 6f 70 74 69 | 6f 6e 61 6c 20 77 69 74 |are opti|onal wit|
|000003a0| 68 20 64 65 66 61 75 6c | 74 20 76 61 6c 75 65 73 |h defaul|t values|
|000003b0| 20 31 38 20 30 20 37 2e | 0d 04 4c 45 f4 20 2a 4d | 18 0 7.|..LE. *M|
|000003c0| 69 6e 69 44 75 6d 70 20 | 5b 3c 6d 61 72 67 69 6e |iniDump |[<margin|
|000003d0| 3e 20 5b 3c 74 68 72 65 | 73 68 6f 6c 64 3e 20 5b |> [<thre|shold> [|
|000003e0| 3c 70 72 69 6e 74 6d 6f | 64 65 3e 5d 5d 5d 20 63 |<printmo|de>]]] c|
|000003f0| 6f 75 6c 64 20 62 65 20 | 75 73 65 64 2e 0d 04 56 |ould be |used...V|
|00000400| 05 e0 0d ff             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+